home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / H108.ZIP / AUG91.ZIP / TIP680.LSP < prev    next >
Lisp/Scheme  |  1991-09-26  |  212b  |  11 lines
  1. ;TIP680.LSP   Wake-Up Call   (c)1991, Phil Kreiker
  2.  
  3. (defun S::STARTUP ()
  4.   (menucmd "T4=DTEXT1")
  5.   (menucmd "T4=DTEXT2")
  6.   (menucmd "T4=DTEXT3")
  7.   (setq DTEXT 1)
  8.   (prompt "DTEXT mode set")
  9.   (princ)
  10. )
  11.